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Abstract 

This  paper  describes  the  status  of  a  prototype  Implemerrtaiion  of  the 
SIMWORLD  Data  Base  (SWDB).  The  ^MWORLD  Database  is  the  major 
component  of  the  Common  Data  Base  (CDB)  which  is  a  key  element  of  the 
BLXS-D  Architecture  concept  (Version  1.0)  The  work  reported  here  is  the 
establishment  of  an  ORACLE  relational  data  base  with  an  initial  complement  of 
DIS  entities  and  assets  structured  in  compliance  with  a  proposed  Common 
Data  Base  Standard.  The  development  of  the  data  base  structure  and 
evaluation  of  an  interface  to  a  DIS  SAF  simulator  (MODSAF)  are  described. 
Reamvnendaiionsfor  substantive  modrfications  to  toe  propose  CDB  Standard 
are  made  to  remove  recursive  features  and  gerierally  facilitate  toe  toterface  with 
object  oriented  DIS  simulators.  This  is  the  initial  increment  of  a  spiral 
development  effort  directed  at  achieving  long  term  DIS  interoperability  ol^ectives 
while  obtaining  near  term  confirmation  of  the  approach  through  utility 
demonstrations.  Aspects  of  the  next  incremental  extension  of  the  CDB  concept 
toward  supporting  an  exercise  planning  capability  are  also  discussed.  This 
work  is  being  performed  as  a  part  of  the  U.S.  Army  STRICOM  BDS-D 
Architecture  and  Standards  effort,  by  SPARTA,  Inc.  under  subcontract  to  Loral 
Advanced  Distributed  Simulation. 
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1  Introduction. 

The  standardization  of  DIS  message  protocols  in  the  form  of  protocol  data 
units  (PDUs)  was  an  important  initial  step  in  reEdizlng  the  potential  benefit 
of  DIS  for  interactive  militaiy  training.  Standardized  databases  with  a 
common  set  of  public  information  shared  between  networked  participants 
are  equalfy  important  to  achieving  a  correlated  view  of  the  virtual 
environment  and  interoperability  on  a  heterogeneous  simulation  network. 
This  operational  concept  is  diagrammed  in  Flgurel-l.  The  BDS-D 
architecture  approach  defines  the  composite  set  of  DIS  public  information 
databases  (virtual  and  physical)  required  to  achieve  interoperability  to  be 
the  SIMWORLD  database.  The  structure  and  meaning  of  information 
collected  in  the  SWDB  is  standardized  for  common  understanding  and 
shared  usage  by  the  Common  Data  Base  Standard  (ADST/WDL/TR-93- 
W003007,  Reference  1).  This  report  provides  the  initial  status  of  a  prototype 
implementation  of  the  SWDB  concept  and  recommendations  for  substantive 
improvements  to  the  Common  Data  Base  Standard. 


Private 

Models 

and 

Data 


Public 
Models 
and  ~ 
Data 


Inter-Cell  Network 

~~  'T-  - 


DiS  MESSAGE  STANDARD 


I 


Cell  Interface  Unit 


I 


DIS  MESSAGE  STANDARD 


X 


I 

t 


3 


DIS  DATA  BASE  STANDARD 


I 


I 


COMMON  DATA  BASE  SOURCE 
(MODELS  AND  DATA) 


A  Data  Base 
Standard  is 
Needed  for 
Heterogeneous 
Simulation 
Networks 


Flgurel-l.  Proposed  DIS  Architecture 


1 


I 


ADST-94-W003283 


ADST  SIMWORLD  Data  Base 


April  18.  1994 


A  subset  of  database  elements  required  for  a  specific  exercise  is  drawn  from 
the  SWDB  to  form  a  Session  Data  Base  (SDB).  Results  of  the  executed 
exercise  are  compiled  in  a  Review  Data  Base  (RDB).  The  SDB  and  RDB  also 
become  elements  of  the  SWDB  for  future  reference  or  use  as  shown  in 
Figure  1-2.  Elements  of  the  virtual  world  are  referred  to  as  entitles, 
elements  of  the  physical  world  required  to  Implement  the  virtual  world  are 
referred  to  as  assets;  this  is  clarified  in  the  DIS  context  in  Figure  1-3. 
Section  3.0  of  this  report  provides  an  evaluation  and  status  of  the  initial 
entity  and  asset  population  of  the  prototype  ORACLE  relational  database. 
Early  experience  with  implementation  concepts  for  an  operational  interface 
between  the  SWDB  and  a  simulator  (ModSAF)  data  base  to  be  used  in 
subsequent  SDB  and  RDB  demonstrations  is  described  in  Section  4.0. 


Figure  1-2.  DIS  Architecture  Common  Data  Base  (CDB) 
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Figure  1-3.  Simulation  Entities  and  Assets 


The  goal  for  the  SWDB  development  program  is  to  create  a  database 
utili^g  the  Common  Database  Standard  that  will  contain  everything 
necessary  to  run  a  DIS  exercise  and  a  capability  (via  simulation)  to  manage 
and  preview  DIS  configurations  and  exercises.  This  capability  would  be 
designed  to  support  the  following  fimctions:  Plamiing  and  scheduling  DIS 
exercises  (simulator  scheduling  conflicts,  ...),  evaluation  of  exercise  resource 
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capability  (network  traffic,  ...),  preview  ability  of  Zeroise  configuration  to 
meet  exercise  goals  (do  the  elements  and  tactics  selected  interact  adequately 
to  meet  the  objectives  of  the  exercise),  etc. 

The  next  incremental  capability  demonstration  which  would  allow  the  user 
to  open  additional  windows  in  ModSAF  listing  entities/assets  for  Ft.  Knox 
and  Ft.  Rucker  is  briefly  outlined  in  Section  4.  The  capability  to  examine 
entity/asset  characteristics  at  each  location  and/or  select  and  place  an 
entity  into  a  simulation  scenario  is  also  planned.  These  features  will  enable 
subsequent  development  of  exercise  planning,  execution  and  review  required 
for  testing  the  full  CDB  Standard  concept. 

2  SWDB  Requirements. 

As  defined  in  ADST/WDL/TR-93-W003C)07,  the  Common  Data  Base  (CDB) 
is  a  collection  of  machine-independent  databases  that  supports 
interoperable  DIS  operations  in  a  heterogeneous  simulation  network.  The 
CDB  will  contain  three  component  data  bases:  the  SIMWORLD  Data  Base 
(SWDB),  the  Session  Data  Base  (SDB),  and  the  Review  Data  Base  (RDB). 

The  SIMWORLD  Data  Base  (SWDB)  is  the  principal  component  data  base  of 
the  CDB  and  will  be  a  standard,  configuration  managed  libraiy  of  machine- 
independent  information  which  is  structured  in  the  form  of  types  of 
simulation  entities  and  simulation  assets.  In  practice,  the  simulation 
entitles  and  simulation  assets  within  a  SWDB  will  meet  defined 
interoperability  criteria. 

The  principal  functional  requirements  of  the  SWDB  are  illustrated  in  Figure 
2-1.  The  composite  capabilities  required  include:  (1)  data  extraction  from 
source  data  bases,  (2)  data  analysis  and  validation  against  acceptance 
criteria,  (3)  data  reformatting  to  a  standard  intercheinge  format,  (4)  data 
storage,  maintenance  and  configuration  management,  (5)  data  acquisition 
support  to  data  base  users,  (6)  data  distribution  to  data  base  users. 
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Figure  2-1.  DIS  Common  Data  Base  End  to  End  Data  Conversion 

The  SWDB  and  other  component  data  bases  will  be  logically  constructed 
according  to  a  Common  Data  Base  Standard.  The  contents  of  the 
databases  are  defined  in  terms  of  a  Common  Data  Base  Interchange  Format 
(CDBIF)  which  will  facilitate  interchange  and  correlated,  interoperable 
usage.  The  CDB  standard  will  also  define  the  mandatoiy  and  optional 
contents  of  the  component  data  bases  and  may  define  procedures  by  which 
these  databases  are  to  be  utilized. 

The  CDBIF  will  use  a  formal,  widely  used  language  structure.  The  CDBIF 
will  allow  machine-independent  exchange  of  data  to  support  DIS 
operations. 
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3  Cmrent  Implementation  —  Database. 

The  initial  capability  increment  is  focused  on  defining  a  highly  effective  and 
efficient  operational  data  base  standard  structure.  Tliis  addresses 
fimctional  requirements  (1),  (3).  (4)  and  (6)  identified  in  Figure  2-1. 

3.1  SIBflWORLO  Database  Structnre. 

The  primary  design  criterion  for  implementing  the  initial  prototype 
SIMWORLD  database  was  conformance  to  the  Distributed  Interactive 
Simulation  Common  Database  Standard.  The  structure  for  this  database  is 
contained  in  ADST/WDL/TR-93-W003007  (Reference  1).  A  brief  description 
of  this  standard  is  necessary  to  understand  the  implementation  decisions 
made  in  the  ORACLE  database. 

3.1.1  Books  and  Chapters. 

The  Common  Database  (CDB)  Standard  specifies  the  structure  of  entity  and 
asset  data  for  SIMWORLD.  It  is  organized  as  a  stream  of  structured  text 
which  is  divided  into  six  books.  Bookl  contains  global  information  about 
the  SIMWORLD  database,  security  levels,  and  version  information.  Book2 
contains  a  list  of  the  entities  and  assets  contained  in  the  database.  Book3 
details  the  entities  and  their  associated  data.  Book4  deteiils  all  the 
information  for  assets.  BookS  is  divided  into  two  chapters,  with  the  first 
listing  definitions  for  enumerated  data  elements  and  the  second  providing 
the  values  for  included  data  tables.  Book  6  Is  currently  unimplemented. 

The  collection  of  all  six  books  and  any  associated  external  ffies,  such  as 
terrain  files,  constitutes  a  SIMWORLD  database. 

3.1.2  Hierarchical  Structure. 

The  CDB  standard  specifies  a  hierarchical  format  for  the  data  designed  to 
minimize  the  problems  of  transporting  data  from  one  machine  and 
implementation  to  another.  The  format  is  constructed  so  as  to  permit  a 
simple  peirser  to  interpret  the  data  stream.  Each  book,  chapter,  and 
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subsection  consists  of  a  header  line,  a  body  part,  and  a  trailer  line.  The 
body  part  may,  itself,  contain  further  structure  organized  recursively. 

3.1.3  Information  Detail. 

All  the  detailed  numerical  and  enumerated  data  in  the  CDB  standard  is 
organized  into  two  structures:  data  tables  and  enumerated  tables.  The 
format  for  these  tables  is  restrictive  and  inflexible.  All  the  data  for  any 
entity  or  asset  must  be  collected  into  one  of  these  forms.  In  addition, 
entitles  are  defined  with  five  subparts:  capabilities,  susceptibilities, 
appearances,  tactics,  and  environments.  All  data  items  for  entities  must  be 
associated  with  one  of  these  five  categories.  The  specification  for  the  CDB 
text  format  is  in  a  modified  Backus-Naur  format  (BNF)  with  optional, 
repeating,  and  nested  text  descriptions  organized  aroimd  keywords  and  end- 
of-line  markers. 

3.1.4  Design  Philosophy. 

SIMWORLD  is  intended  to  support  the  development  of  the  Distributed 
Interactive  Simulation  (DIS)  network.  This  is  a  heterogeneous  network 
which  will  ultimately  host  hundreds  of  machines  interacting 
simultaneously,  generally  in  real-time.  As  a  result,  the  CDB  standard  has 
been  constructed  with  portability  as  a  key  requirement.  The  result  is  an 
ASCII  text  representation  for  data  with  a  machine-parsable  structure. 

There  is  no  requirement  within  the  CDB  standard  that  the  internal 
representation  of  the  data  must  conform  to  this  text-based  format.  In  the 
development  of  our  prototype  SIMWORLD  database,  we  chose  to  Implement 
in  ORACLE  a  structure  which  was  closely  analogous  to  the  BNF  text 
description  of  the  database.  This  was  done  to  guarantee  that  we  had  a  good 
understanding  of  the  detailed  CDB  structure  and  to  ease  the  data-entiy 
burden. 
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3.2  ORACUB  Implementation  Stnicture. 

3.2.1  Relational  Structure. 

ORACLE  is  a  relationsd  database  system  which  means  that  data  is  stored  in 
the  form  of  rows  within  tables.  Tables  contain  a  fixed  set  of  columns,  each 
column  having  a  fixed  length,  data  type,  and  possibly  other  attributes  (such 
as  uniqueness  or  a  requirement  to  not  be  null).  Relational  databases  are 
very  flexible  but  require  an  experienced  designer  to  implement  complex  data 
structures.  In  pzirticular,  hiereirchical  data  can  be  represented  in  a 
relational  database,  but  it  presents  a  unique  set  of  design  difficulties  and 
can  have  severe  Impacts  on  the  efficiency  of  the  database  engine.  In  order 
to  delineate  specific  problem  areas,  we  elected  to  Implement  the  hierarchical 
CDB  database  format  directly  in  ORACLE.  This  entails  the  use  of  multiple 
tables  to  represent  each  complex  data  item  in  the  standard.  Each  optional 
or  repeating  data  item  must  be  set  off  in  a  separate  table  to  make  sure  that 
there  is  no  duplication  of  data  or  excessive  numbers  of  nulls.  In  short,  the 
richer  the  structure,  the  more  tables  are  necessary  (in  general)  to  represent 
the  data. 

3.2.2  Table  Details. 

Our  implementation  of  the  CDB  database  is  in  third  normal  form  and 
involves  46  tables,  10  of  which  are  “crossover”  tables  used  to  implement 
many-to-many  relationships  between  the  imderlying  constructs.  Each 
major  BNF  element  in  the  CDB  standard  is  represented  as  a  field  in  one  of 
these  tables.  Collections  of  such  fields  are  organized  into  tables  which 
permit  “one  or  more”  instances  of  such  items  to  appear.  The  tables  are 
linked  through  the  use  of  unique  sequence  numbers.  Walking  through  a 
single  example  will  illustrate  the  design  of  the  entire  structure.  We  will 
consider  the  implementation  of  the  data  tables  as  outlined  in  section 
4.3.5. 2. 1  of  the  CDB  standard.  The  relevant  BNF  text  is  as  follows  (Figure 
3-1): 
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DAT A_T Able  <Data_  Table_Name> 

NUM_DIMENSIONS  <dimensions> 

(DIMENSION  <dimension_numben>  <Dimension_Name>  {<Uom>)... 
bATA_TABLE_VALUES  {<Dimension_Name>) . . . 

<dimension_valu0>  or  <dimension_range>)... 

END  DATA_TABLE_VALUES 

END  DATA_TABLE  <Data_Table_Name> _ 

Figure  3- 1 .  Relevant  BNF  Text 

The  Implementation  of  this  consists  of  four  linked  tables  defined  as  follows 
in  Table  3-1: 

Table  3- 1 .  Implementation  of  Relevant  BNF  Text 


DATA  TAB 

DTJD 

Sequence 

DT_Name 

nanrie 

DATA  DIMS 

0_DT_ID 

Owner  ID 

DD_Dim_Num 

Dimension  number 

DD_Dependent? 

Dependent  variable? 

DD_Name 

name 

DD_Units 

units 

DATA_ENTRIES 

0_DT_ID 

Owner  ID 

DE_Entfy 

Entry  number 

DE_Dim_Num 

Dimension  number 

DE_Min 

minimum  range 

DE_Max 

maximum  range 

DATA  VALUES 

0_DT_ID 

Owner  ID 

0_DE_Entry 

Owner  entry  number 

DV_Dim_Num 

Dimension  number 

DV  Value 

table  value 
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The  data  table  name  and  its  unique  ID  number  are  stored  in  the  DATAJTAB 
table.  Each  dimension  within  that  table  gets  a  row  in  the  DATA_DIMS 
table  which  is  linked  to  the  DATA_TAB  table  through  the  0_DT_ID  field  —  a 
foreign  key  value.  Each  dimension  has  a  unique  dimension  number 
(DD_Dim_Num)  which  is  used  to  collate  entries  and  to  order  the  values  in 
the  table.  The  dimension’s  name,  unit  of  measure,  and  a  Boolean 
indicating  whether  the  dimension  is  Independent  or  not  is  also  contained  in 
this  table. 

Each  table  consists  of  a  number  of  entries.  An  entry  should  be  thought  of 
as  a  cell  in  the  multi-dimensional  space  of  the  independent  variables 
associated  with  the  table.  That  is,  a  particular  entry  consists  of  range 
limits  for  each  possible  Independent  variable.  The  DATA_ENTRIE)S  table 
contains  a  row  for  each  Independent  variable  range  for  each  entry  in  the 
data  table. 

For  example,  let  us  suppose  that  the  data  table  Cross-Section  contains 
radar  cross-section  information  for  all  azimuth  and  elevation  angles.  This 
is  a  three-dimensional  table  with  independent  variables  azimuth  and 
elevation  and  dependent  variable  sigma.  If  the  cross-section  is  specified 
for  each  5  degrees  of  eizimuth  and  each  2  degrees  of  elevation,  we  would 
expect  the  table  to  contain  6,480  entries.  Consequently,  the 
DATA_ENTRIES  table  would  contain  twice  that,  or  12,960  rows,  each  row 
having  a  limit  on  the  range  either  azimuth  or  elevation.  The  first  few  rows 
in  the  table  might  look  like  those  in  Table  3-2  below: 


Table  3-2.  DATA  ENTRIES  Table  Example 


0_DT_ID 

DE_Entrv 

DE_Dim_Num 

HE9^9I 

DE  Max 

row  1 

45 

1 

1 

0 

5 

row  2 

45 

1 

2 

0 

2 

row  3 

45 

2 

1 

5 

10 

row  4 

45 

2 

2 

0 

2 

10 
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Each  entiy  has  one  or  more  values  associated  with  it  —  one  for  each  of  the 
dependent  variables.  The  DATAJVALUEIS  table  contains  these  numbers,  tied 
to  the  corresponding  entry  through  the  0_DE_Entry  field.  Similar 
constructs  exist  throughout  the  design.  Each  entity  can  have  several 
capabilities,  for  example,  so  the  table  E_C_X  contains  the  ID  of  the  entity 
and  its  associated  capabilities.  Each  capability,  in  turn,  may  contain  data 
tables.  This  relationship  is  captured  in  the  C_DT_X  table  linking  capability 
IDs  and  the  associated  data  table  IDs.  The  naming  conventions  for  the 
tables  and  fields  are  consistent  throughout  the  database  emd  can  be 
followed  easily.  Appendix  A  contains  a  full  description  of  the  columns  and 
tables  for  the  entire  database. 

3.2.3  CDB  Prototype. 

Since  the  data  structure  for  the  ORACLE  implementation  closely  matches 
the  CDB  format,  exporting  a  CDB-compllant  database  is  a  simple  matter.  A 
set  of  reports  named  bookl.sql,  book2.sql,  etc.,  have  been  devui  *  ed  which 
extract  the  relevant  information  from  the  ORACLE  ^stem  and  create  the 
corresponding  books  from  the  CDB  standard.  These  reports  use  the  PL/SQL 
language  which  comes  with  the  procedural  option  of  the  ORACLE  system. 
The  reports  produce  a  set  of  files  named  BOOKl.lst,  BOOK2.1st,  etc.,  which 
can  be  concatenated  to  )rleld  a  complete  CDB  database.  The  complete  text 
of  the  reports  is  presented  in  Appendix  B. 

In  order  to  test  the  implementation,  we  chose  the  ModSAF  program  —  a 
semi-automated  force  simulator  which  runs  on  Sun  and  Silicon  Graphics 
workstations.  ModSAF  comes  with  an  extensive  and  well-structured  library 
of  entitles.  The  ORACLE  SIMWORLD  prototype  consists  of  three  entities 
translated  fi-om  the  ModSAF  database:  an  AH-64  Apache  helicopter  and  two 
tanks,  an  MlAl  and  a  T-72.  Together,  these  three  entities  resulted  in  the 
creation  of  38  sub-entities,  60  enumerated  tables  and  over  120  data  tables. 
The  database  contains  all  the  tables,  fields,  and  values  contained  in 
ModSAF  which  are  required  to  Implement  these  entities. 
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3.3  Problems. 

A  number  of  problons  with  the  current  CDB  Standard  became  evident 
diulng  the  course  of  this  task.  The  structure,  while  easily  machine  parsed, 
is  too  rigid  to  accommodate  many  common  constructs  from  the  ModSAF 
database.  This  lack  of  flexibility  led  to  difficulties  in  assigning  ModSAF  to 
appropriate  locations  within  the  CDB  structure,  as  well  as  the  dissociation 
of  data  elements  which  were  represented  as  a  unit  within  ModSAF.  Our 
judgment  is  that  this  would  lead  to  long-term  difficulties  in  frying  to  extract 
and  collate  Information  from  the  CDB  format  which  would  support  a  wide 
range  of  computer  simulations. 


3.3.1  Attribute  Data. 

Computer  constructs  often  contain  data  which  is  associated  with  an  entity 
for  the  simulation’s  use  only  and  do  not  necessarity  correspond  to  real- 
world  Information.  Such  attribute  data  does  fit  into  the  CDB  model,  which 
requires  all  entity  data  to  be  associated  with  a  capability,  susceptibility, 
appearance,  tactic,  or  environment.  This  makes  information  such  as  icons, 
screen  colors,  data  sizes,  record  types,  and  ID  numbers  difficult  or 
impossible  to  assign  properly  to  the  entity.  While  it  is  possible  to  force  the 
data  into  categories  that  may  not  be  completely  appropriate,  or  to  create 
new  entities  which  encapsulate  the  data  specific  to  a  particular  simulation, 
this  defeats  the  purpose  of  a  single  common  database  standard:  the  free 
exchange  of  information  between  different  simulation  programs. 


3.3.2  Data  Cohesion. 

Often,  we  came  across  grouped  ModSAF  data  which  contained  pieces  that 
belonged  to  separate  sub-parts  of  the  CDB  standard.  Breaking  this  data  up 
would  permit  it  all  to  be  included  in  the  standard,  but  greatly  exacerbates 
the  problem  of  extracting  a  ModSAF-readable  database  from  the  ORACLE 
^stem.  In  fact,  this  was  probably  the  single  most  troublesome  difficulty 
encoimtered  in  the  CDB  standard  and  can  be  traced  back  to  its  hierarchical 
structure.  As  more  simulations  are  added  to  the  database,  this  would 
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almost  certainty  become  a  major  problem  that  would  threaten  the  utility  of 
the  common  database  itself.  It  is  essential  that  related  data  retain  their 
associations  so  that  the  simulators  can  find  all  the  information  they  need 
to  construct  an  entity. 

3.3.3  Structure  Flexibility. 

The  foundational  elements  in  the  CDB  standard  are  data  tables  and 
enumerated  tables.  The  data  tables  are  designed  to  handle  hyper- 
rectangular  arrays  of  numerical  information  and  enumerated  tables  are 
designed  to  associate  text  meaning  with  numerical  field  values.  There  is 
realty  no  construct  for  a  complex  array,  a  collection  of  related  non-numeric 
objects,  or  a  dictionaiy  associating  k^s  and  values.  This  lack  of  flexibility 
resulted  in  extensive  work-arounds  and  “force-fitting"  of  the  ModSAF 
constructs  into  the  CDB  standard.  The  database  would  be  greatly  simplified 
by  the  addition  of  these  kinds  of  collections  and  a  freer  format  for  data 
records  and  groups. 

3.3.4  Correlations. 

The  worst  sin  in  the  CDB  standard  is  the  assumption  that  all  correlations 
between  data  elements  can  be  fitted  into  the  hierarchy  defined  in  the 
standards  document.  This  is  a  reasonable  assumption  on  its  face,  but 
rapidty  breaks  down  when  applied  to  real-world  data.  For  Instance,  one 
ModSAF  construct  shows  that  the  MlAl  and  the  T-72  are  lined  in  the  sense 
that  th^  share  an  internal  representation  area  and  some  simulation- 
specific  attributes.  This  can  be  handled  through  the  use  of  common 
appearances  and  capabilities  (which  is,  in  fact,  how  the  data  was  entered) 
but  that  is  a  poor  fit  to  the  actual  relationship.  What  is  actually  going  on 
here  is  that  the  MlAl  and  the  T-72  are  both  instances  of  a  common  class  — 
Tank  —  which  cannot  be  well-represented  in  the  CDB  format. 

3.4  Recommendations. 

From  our  extensive  work  with  the  ModSAF  data  and  the  CDB  standard,  we 
think  that  some  changes  to  the  standard  would  greatly  improve  Its  utility 
and  that  they  could  be  accomplished  at  this  earty  stage  with  a  minimum  of 
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disruptive  effects  and  for  a  reasonable  cost.  It  is  a  truism  that  extra  effort 
expended  to  ensure  a  good  product  in  the  design  phase  of  any  information 
system  wUl  be  recouped  many  times  over  in  the  effort  of  implementation  and 
maintenance. 

3.4.1  Object-Orieiited  Structure. 

The  real  world  is  a  collection  of  objects.  Modem  languages,  databases,  and 
design  tools  exist  to  develop  and  capture  this  object  stmcture  in  an 
information  system.  The  ModSAF  database  itself  is  an  excellent  example  of 
proper  object-oriented  design.  Rather  than  a  coUectior  of  fixed  structures. 
ModSAF  uses  a  flexible  language  with  inheritance,  substitution,  and 
extension  to  Implement  its  data  sets.  This  sort  of  stmcture  is  consistent 
with  modem  development  in  simulators  and  database  systems.  It 
represents  an  efficient  means  of  associating  related  data,  avoids 
duplication,  and  minimizes  the  amount  of  traffic  required  to  access  or 
synchronize  data  over  a  network. 

We  recommend  that  the  CDB  standard  be  altered  to  accommodate  an 
object-based  stmcture.  This  would  Involve  the  development  of  a  class 
hierarchy  appropriate  for  simulators  which  at  least  captures  the  level  of 
detail  in  the  current  standard.  Actually,  that  is  not  difficult  —  one  can.  in 
fact,  produce  a  more  detailed  class  hierarchy  than  the  current  standard  very 
easily.  The  dass  hierarchy  would  indude  mandatoiy  attributes  and  specify 
inheritance  relationships  for  each  class  of  interest.  The  attributes  would 
correspond  to  the  current  “required  fields"  in  the  CDB  standard.  Since  aU 
object  stmctures  share  the  common  features  of  extensibilify.  data 
abstraction,  and  data  encapsulation,  they  are  ideal  for  implementation  of 
common  “pools”  of  information  such  as  the  CDB  requires. 

In  addition  to  the  class  hierarchy.  2in  entity-relationship  (EI^  stmcture  for 
the  CDB  should  be  developed.  This  would  entail  Identifying  the  most  likely 
associations  and  ownership  relations  expected  in  the  CDB  environment.  In 
other  words,  it  would  establish  a  basis  for  data  stmctures  which  capture 
information  like  “this  main  gun  belongs  to  this  tank”  and  “all  fixed-wing 
aircraft  have  a  stall  speed”.  Like  a  cle^  hierarchy,  an  ER  diagram  can  be 
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altered  and  extended  to  include  new  developments  and  more  information  so 
the  system  need  not  become  obsolete,  nor  must  the  designer  anticipate  all 
possible  associations  in  the  prellmlnaiy  design. 

3.4.2  Data  StructUTe. 

For  object-oriented  systems,  a  rich  class  structure  of  data  types  has  been  in 
use  for  several  years:  the  data  classes  of  the  language  Smalltalk.  These 
classes  permit  arbitrarlty  complex  data  associations  and  structures 
including  arrays,  tables,  dictionaries,  sets,  and  ordered  collections.  By 
including  this  rich  data  representation  set  in  the  CDB  standard,  it  will 
possible  for  simulations  to  keep  associated  data  in  close  proximity  and  still 
allow  “foreign"  ^sterns  to  access  that  data  in  a  meaningful  way.  In 
addition,  items  that  must  be  restricted  for  security  reasons  are  much  easier 
to  isolate  by  using  such  a  system.  Individual  data  items  or  collections  can 
be  tagged  with  classification  levels  and  efiiciently  hidden  from  access  as 
required. 


3.4.3  Cross-Flatf’onn  Compatibility. 

The  object  structure  outlined  above  can  be  implemented  in  almost  any 
database  system  on  any  platform.  Text  representations  for  arbitrarily 
complex  objects  can  be  generated  (another  problem  that  has  been  solved  in 
Smalltalk  for  over  a  decade)  and  shipped  across  platforms  just  as  for  the 
CDB  standard.  Parsing  an  object  structure  is  actually  easier  than  parsing  a 
hierarchical  structure  because  the  stream  has  little  or  no  “state 
information”  that  must  be  tracked. 

4  Current  Implementation  —  ModSAP  Utilisation. 

The  computer  generated  forces  model.  ModSAF,  was  provided  to  SPARTA  by 
LORAL  to  facilitate  a  prototype  demonstration  of  the  SWDB  concept.  The 
following  is  a  summaiy  of  the  progress  to  date  in  implementing  ModSAF  on 
Silicon  Graphics  and  Sun  SPARC  stations  in  the  SPARTA,  HimtsvUle 
facility. 


15 


ADST-94-W003283 


ADST  SIMWORLD  Data  Base 


April  18.  1994 


An  earty  requirement  in  the  use  of  ModSAF  was  to  access  the  ModSAF 
entity  databases  to  extract  data  to  be  Inserted  into  the  ORACLE  database 
implementation  discussed  above.  A  C  program  was  created  for  the 
conversion  of  the  ModSAF  database  to  a  format  compatible  with  ORACLE. 
This  involved  extracting  the  filereader  from  ModSAF  in  order  to  read  the 
databases.  The  program  currently  has  a  simple  interface  with  the  user  and 
this  program  will  be  further  modified  once  the  exact  format  for  the  output  is 
obtained. 

ModSAF  has  been  successful^  built  on  an  SGI  and  a  Sparc  10  (using  GNU 
GCC  2.5.7).  We  have  successfulty  run  ModSAF  imder  a  single  host 
configuration  (SAFstation  and  SAFsim  on  the  same  machine).  This  was 
accomplished  on  the  SGI  as  well  as  the  Sparc  10. 

Several  scenarios  have  been  run  to  investigate  the  SAFstation  and  SAFsim 
operations  (creating  and  controlling  units,  assigning  missions,  the  various 
editors,  etc.).  We  have  also  successfulfy  distributed  ModSAF  over  our  local 
network  and  have  run  a  SAFstation  along  with  up  to  four  SAFslms  using 
Sparc  lO's  and  Sparc  2's.  All  of  the  stations  and  simulators  were  on  the 
same  exercise  and  database.  We  have  also  successfully  run  two 
SAFstations  and  up  to  three  SAFslms  on  our  local  network  with  the 
SAFstations  utilizing  independent  PO  databases  and  the  SAFsims  divided 
among  these  databases.  We  have  attempted  a  distributed  run  involving  a 
Sparc  10  and  a  SGI  platform,  but  experienced  problems  with  the  platforms 
communicating  with  each  other. 

The  Logger  has  been  built  on  a  Sparc  10  and  we  have  successful^  run  an 
exercise  utilizing  the  Logger.  The  Logger  will  be  utilized  to  playback 
previousfy  run  exercises  to  highlight  differences  in  performance  for  a  given 
set  of  entity  data  extracted  fi-om  the  SWDB. 
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Appendix  A  ~  Table  Desertptiom 


APPEARANCES 


Naae 

Null? 

Type 

AP_ID 

NUMBER 

AP_TYPE 

CHAROO) 

AP_DESCRIPTI(»J 

CHAR(80) 

COMHON 

CKAR(l) 

APP_EXTENTS 

Name 

Null? 

Type 

0^_ID 

NUMBER 

APP_EXTENT 

CHAROO) 

APP_STDS 

Name 

Null? 

Type 

0_AP_ID 

NUMBER 

AP_STANDARD 

CHAROO) 

AP_VERSION 

CHAROO) 

AP_INFO 

CHAR(80) 

AP_DT_X 

Name 

Null? 

Type 

0_AP_ID 

NUMBER 

C_DT_ID 

NUMBER 

ASSETS 

Name 

Null? 

Type 

A^ID 

NUMBER 

a_name 

CHAROO) 

A^TYPE 

CHAROO) 

A_IDENTITY 

CHAR(80) 

CAPABILITIES 

Name 

Null? 

Type 

C_ID 

NUMBER 

C_TYPE 

CHAROO) 

C_DESCRIPTION 

CHAR(80) 

COMMON 

CHAR(l) 

CONTAINS 

Name 

Null? 

Type 

0_E_ID 

NUMBER 

C_E_ID 

NUMBER 

CON_EXCEPTS 

Name 

Null? 

Type 

0_E_ID 

NUMBER 

C_E_ID 

NUMBER 

CE_TYPE 

CHAR(l) 

CE_CLASS 

CHAR(18) 

CE_ID 

NUMBER 

C_DT_X 

Name 

Null? 

Type 

0_C_ID 

NUMBER 

C_DT_ID 

NUMBER 

DATA_DIMS 

Name 

Null? 

Type 
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0_DT_ID 

DD_DIH_NUM 

DD_DEPENOENT 

DD_aAME 

DD_UNITS 

DATA^ENTRIES 

Itame 

Null? 

NUMBER 

NUMBER 

CHAR(l) 

CHAROO) 

CHARdS) 

Type 

0_DT_ID 

NUMBER 

DE_ENTRy 

NUMBER 

DE_DIMJNUM 

NUMBER 

DE_>!IN 

NUMBER 

DB_HAX 

NUMBER 

DATA^TAB 

Name 

Null? 

Type 

DT  ID 

NUMBER 

DT_NAME 

CHAROO) 

DATA_VALUES 

Name 

Null? 

Type 

0_DT_ID 

NUMBER 

0_DE_ENTRY 

NUMBER 

DV_DIMLJ«JM 

NUMBER 

DV_VALUE 

NUMBER 

DIS_PDU_TYPES 

N^une 

Null? 

Type 

0  DP_ID 

NUMBER 

DPT_NAME 

CHAROO) 

DPT_SR 

CHAR(l) 

DPT_RATE 

NUMBER 

DPT_KIND 

CHAR(l) 

DIS_PROTOCOLS 

Name 

Null? 

Type 

DP_ID 

NUMBER 

0_A_ID 

NUMBER 

DP_TYPE 

CHAROO) 

DP_VERSION 

CHAROO) 

DP_OOP 

CHAR(l) 

DP_ERROR 

CHAR(l) 

DP_PDU_IMP 

CHAROO) 

DT_ET_X 

Name 

Null? 

Type 

DT_ID 

NUMBER 

ET_ID 

NUMBER 

ENTITIES 

Name 

Null? 

Type 

E  ID 

NUMBER 

EJIAME 

CHAROO) 

E  PUBLIC 

CHAR(l) 

E_IDENTITY 

CHAR(255) 

A-2 
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Ein]H_FIELOS 


Name 

Null? 

Type 

0_ET_ID 

NUMBER 

EF_FIELD_NUM 

NUMBER 

EFJNAME 

CHAR(30) 

EP_UNITS 

CHAR(18) 

EF_FIELD_SIZE 

CHAR(12) 

ENUM_TAB 

Name 

Null? 

Type 

ET_ID 

NUMBER 

ET_NAME 

CHAR(30) 

ET_ITEM_SIZE 

NUMBER 

ENUM_USES 

Name 

Null? 

Type 

0_ET_ID 

NUMBER 

EU_USER_PDU 

CHAR(30) 

EU_USER_RECORD 

CHAR(30) 

ENUMJVALUES 

Name 

Null? 

Type 

0_ET_ID 

NUMBER 

EV_FIELD_NUM 

NUMBER 

EV_MIN 

NUMBER 

EV_MAX 

NUMBER 

EV_MEANING 

CHAR(80) 

ENVIRONMENTS 

Neune 

Null? 

Type 

ENV_ID 

NUMBER 

ENV_TYPE 

CHAR(30) 

ENV_DESCRIPTION 

CHAR(BO) 

COMMON 

CHAR(l) 

ENV_DT_X 

Name 

Null? 

Type 

0_ENV_ID 

NUMBER 

C_DT_ID 

NUMBER 

ENV_STDS 

Name 

Null? 

Type 

0_ENV_ID 

NUMBER 

ENV_STANDARD 

CHAR(30) 

ENV_VERSION 

CHAR(30) 

ENV_INFO 

CHAR(80) 

E_A_X 

N2une 

Null? 

Type 

0_E_ID 

NUMBER 

C_A_ID 

NUMBER 

E_C_X 

Neune 

Null? 

Type 

0_E_ID  NUMBER 

C_C_ID  NUMBER 
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EL.ENV_X 


Name 

Null? 

Type 

0_E_ID 

NUMBER 

C_ENV_ID 

NUMBER 

ELS_X 

Name 

Null? 

Type 

0_E_ID 

NUMBER 

C_S_ID 

NUMBER 

E_T_X 

Name 

Null? 

Type 

0_E_ID 

NUMBER 

C_T_ID 

NUMBER 

HARDWARE 

Name 

Null? 

Type 

HW_ID 

NUMBER 

0_A^ID 

NUMBER 

HW_NAME 

CHAROO) 

HW_TYPE 

CHAROO) 

HW_IDENT 

CHAR(80) 

HW_DETAIL 

Naune 

Null? 

Type 

0_HW_ID 

NUMBER 

HWD_TYPE 

CHAROO) 

HWD_DESCRIPTION 

CHAR(80) 

IF_DETAIL 

Name 

Null? 

Type 

0_IF_ID 

NUMBER 

DF_NAME 

CHAR(80) 

DF_SIZE 

NUMBER 

IF_SUPPORT 

Ncune 

Null? 

Type 

0_IF_ID 

NUMBER 

IFS_TyPE 

CHAR(18) 

IFS_DESCRIPTION 

CHAR(80) 

IHAGES 

Name 

Null? 

Type 

LINE_NO 

NUMBER 

LINE 

CHAR(255) 

INCLUDE_FILES 

Name 

Null? 

Type 

IF_ID 

NUMBER 

0_A_ID 

NUMBER 

IF_TYPE 

CHAROO) 

IF_CONTENT 

CHAR(80) 

IF_FILE_TYPE 

CHAR(12) 
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ISO_PROTOCOLS 


ttane 

Null? 

Type 

IP_ID 

NUMBER 

O^ID 

NUMBER 

IP_LAYER 

NUMBER 

IP_PROTOCOL 

CHAROO) 

IP_LAYEILJ1AME 

CHAR(12) 

IP_PDO_NAME 

CHAROO) 

IP_SERVICE 

CHAR(80) 

PERSONNEL 

Name 

Null? 

Type 

0_\_ID 

NUMBER 

P_TYPE 

CHAROO) 

P^DESCRIPTION 

CHAR(80) 

P_QUALIFICATIONS 

CHAR(80) 

SOFTWARE 

Name 

Null? 

Type 

SW_ID 

NUMBER 

0_A_ID 

NUMBER 

SW_NAME 

CHAROO) 

SW_TYPE 

CHAROO) 

SW_BUILD_DATE 

DATE 

SUPPORTS 

Name 

Null? 

Type 

SU_ID 

NUMBER 

0_A^1D 

NUMBER 

SU_MAX_OWN 

NUMBER 

SU_MAX_TRACKED 

NUMBER 

SUSCEPTIBILITIES 

Name 

Null. 

Type 

S_ID 

NUMBER 

S_TYPE 

CHAROO) 

S_DESCRIPTION 

CHAR(80) 

COMMON 

CHAR(l) 

SU_CONC_ET 

Name 

Null? 

Type 

0_SU_ID 

NUMBER 

SU_EN_NAME 

CHAROO) 

SWDB_SEC_M0DS 

Name 

Null? 

Type 

0_SWDB_ID 

NUMBER 

SEC_SECTI0N 

NUMBER 

SEC^BASE 

CHAR(l) 

SEC_CLASS 

CHAROO) 

SWDB_TAB 

Name 

Null? 

Type 

SWDB_ID 

NUMBER 

SWDB_SECURITY 

CHAR(18) 

CDB_VERSION_NUM 

NUMBER 

SWDB_NAME 

CHAROO) 

SWDB_VERS10N 

NUMBER 

SWDB_PURPOSE 

CHAR(80) 

SWDB_POC 

CHAR(255) 

SW_DETAIL 

Name 

Null? 

Type 
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0_SW_ID 

NUMBER 

SWD_TYPE 

CHAR(30) 

SWD_DESCRIPTION 

CHAR(80) 

S_DT_X 

Neune 

Null? 

Type 

0_S_ID 

NUMBER 

C_DT_ID 

NUMBER 

TACTICS 

Nsune 

Null? 

Type 

T_ID 

NUMBER 

T_TYPE 

CHAROO) 

T_DESCRIPTION 

CHAR(80) 

COMMON 

CHAR(l) 

T_DT_X 

Name 

Null? 

Type 

0_T_ID 

NUMBER 

C_DT_ID 

NUMBER 
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App#»«<Hy  B  —  Reports 

set  head  off; 
set  pages  0; 
set  feedback  off; 
spool  BOOKl; 

select  'SWDB_BOOKl'  from  dual; 

select  ■ SWDB_SECURITY_LEVEL  ' I  I SWDB_Security  from  swdb_tab; 

select  8ec_class  from  swdb_sec_mods  where  sec_section  =1  and  sec_base  =  'n*; 

select  •CDB_VERSION_NUMBER  ' I  I CDB_Version_Hum  from  swdb_tab; 

select  'SIMWORLD  ' I  I SWDB JJame I r  ‘ 1 1 SWDB_Version  from  swdb_tab; 

select  * SIMWORLD_PURPOSE  ‘ I  I SWDB_Purpose  from  swdb_tab; 

select  •SIMWORLD_POC  •||SWDB_POC  from  swdb_tab; 

select  • NUMBER_ENTITY_TYPES  ' I Icoimt (distinct  E_ID)  from  entities; 
select  ■ NUMBER_ASSET_TYPES  ' I  I  count (distinct  A_ID)  from  assets; 
select  'END  SWDB_BOOKl'  from  dual; 
spool  off; 
set  head  off; 


set  pages  0; 
set  feedback  off; 
spool  BOOK2: 

select  •  SWDB_BCX5K2  •  from  dual; 

select  • SWDB_BOOK2_SECURITy_LEVEL  ' I  I  sec_class 

from  swdb_sec_mods  where  sec_section  =2  euid  sec_base  =  'y*; 
select  sec_class  from  swdb_sec_mods  where  sec_section  =2  and  sec_base  =  'n'; 
select  •ENTITY_'rYPE  •||E_IDir  ‘llE_Name  from  entities; 
select  'ASSET_TYPE  ‘ 1 IA_IDI I '  ‘ I lA_Name  from  assets; 
select  'END  SWDB_BOOK2'  from  dual; 
spool  off; 


set  head  off; 
set  pages  0; 
set  feedback  off; 
spool  BOOK3 

select  •SWDB_BOOK3'  from  dual; 

select  • SWDB_BOOK3_SECURITY_LEVEL  'll  sec_class 

from  swdb_sec_mods  where  sec_section  =3  and  sec_base  =  'y'; 
select  sec_class  from  swdb_sec_mods  vdiere  sec_section  =3  and  sec_base  =  'n'; 
delete  from  images; 

DECLARE 

lino  nvimber  :=  0; 
line  char(255); 
eid  number; 
cid  number; 
cursor  cEntity  is 

select  E_ID,  E_Name,  E_Public,  E_Identity 
from  entities; 

cursor  cCapability  is 

select  C_ID,  C_Type,  C_Description 
from  capabilities,  E_C_X 
where  o_e_id  =  eid 
and  C_C_ID  =  C_ID; 
cursor  cDT_cap  is 
select  DT_Name 
from  data_tab,  C_DT_X 
where  0_C_ID  =  cid 
and  DT_ID  =  C_DT_ID: 


cursor  cSusc  is 

select  S_ID,  S_Type,  S_Description 
from  susceptibilities,  E_S_X 
where  o_e_id  =  eid 
and  C_S_ID  =  S_ID; 
cursor  cDT_sus  is 
select  DTjNcime 
from  data_tab,  S_DT_X 
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where  0_S_ID  =  cid 
and  DT_ID  =  C_DT_ID; 

cursor  appearance  is 

select  AP_ID,  AP_Type,  AP_Description 
from  appearances ,  EL.A_X 
vdiere  o_e_id  =  eid 
and  C_A^ID  =  AP_ID; 
cursor  cDT_app  is 
select  DTJName 
from  data_tab,  AP_DT_X 
vdiere  0_AP_ID  =  cid 
and  DT_ID  =  C_DT_ID; 

cursor  cEnvironment  is 

select  ENV_ID,  ENV_Type,  ENV_Description 
from  environments,  E_ENV_X 
where  o_e_id  =  eid 
and  C_ENV_1D  =  ENV_ID; 
cursor  cDT_env  is 
select  DT_Hame 
from  data_tab,  ENV_DT_X 
where  0_BNV_ID  =  cid 
and  DT_ID  =  C_DT_ID; 


cursor  cTactic  is 

select  T_ID,  T_Type,  T_Description 
from  tactics,  E_T_X 
where  o_e_id  =  eid 
and  C_T_ID  =  T_ID; 

cursor  cDT_tac  is 
select  DT_Name 
from  data_tab,  T_DT_X 
vdiere  0_T_ID  =  cid 
and  DT_ID  =  C_DT_ID; 

cursor  cContains  is 
select  E_Jlame,  C_E_ID 
from  Entities,  Contains 
vdiere  0_E_ID  =  eid 
and  E_ID  =  C_E_ID; 

cursor  cConex  is 

select  CE_Type,  CE_Class,  CE_ID 

from  CON_EXCEPTS 

where  0_E_ID  =  eid 

and  C_E_ID  =  cid 

order  by  CE_'IVpe,  CE_Class; 

cursor  cComCap  is 

select  C_ID,  C_Type,  C_Description 
from  capPilities 
where  common  =  'y' ; 

cursor  cComSusc  is 

select  S_ID,  S_'IVpe,  S_Description 
from  susceptibilities 
where  common  =  'y'; 

cursor  cComApp  is 

select  AP_ID,  AP_Type,  AP_Description 
from  appearances 
where  common= ' y ' ; 

cursor  cComEnv  is 

select  ENV_ID,  ENV_Type,  ENV_Description 
from  environments 
where  commons ’ y • ; 

cursor  cComTac  is 

select  T_ID,  T_Type,  T_Description 
from  tactics 
where  commons • y • ; 
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BEGIN 

for  cent  in  cEntity  loop 
eid  ;=  cent.E_ID; 

line  ;=  •ENTIT5f_TYPE  •  I  ITO_CHAR(cent  .E_ID)  I  T  ’ll  cent .  E_Nanie  ; 
insert  into  images  values  (lino,  line): 
lino  :=  lino  +  1; 

line  :=  •  PUBLIC  ' I Icent.E-Public; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  ;=  '  IDENTITY  • I  I  cent .E_Identity; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

for  cap  in  cCapability  loop 
cid  :=  cap.C_ID; 

line  :=  '  CAPABILITY  ' I lcap.C_Type; 
insert  into  images  values  (lino,  line) : 
lino  :=  lino  +  1; 


line  :=  •  CAPABILITY_DESCRIPTION  • I lcap.C_Description; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  -f  1; 


for  dt_cap  in  cDT_cap  loop 

line  :=  •  DATA  TABLE  • 1  I dt_cap.DT_Name; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 


line  :=  •  END  CAPABILITY  ' I lcap.C_Type; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

for  sus  in  cSusc  loop 
cid  ;=  sus.S_ID; 


line  :=  *  SUSCEPTIBILITY  ' I  I sus . S_Type ; 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  +  1; 


line  ;=  •  SUSCEPTIBILITY_DESCRIPTION  • I  I sus . S_Description; 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  +  1; 


for  dt_sus  in  cDT_sus  loop 

line  :=  •  DATA  TABLE  • I  I dt_sus . DT_Name ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

line  :=  •  END  SUSCEPTIBILITY  ' I  I Sus . S_Type ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

for  app  in  cAppearance  loop 
cid  :=  app.AP_ID; 

line  :=  ’  APPEARANCE  ' I lapp.AP_Type; 
insert  into  images  values  (lino,  line) ; 
lino  ;=  lino  +  1; 


line  :=  ’  APPEARANCE_DESCRIPTION  *  1 lapp.AP_Description; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
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for  dt_app  in  cDT_app  loop 

line  ;=  ’  DATA  TABLE  '  I  ldt_app.DT_Naine; 
insert  into  images  values  (lino,  line); 
lino  :*  lino  +  1; 
end  loop; 

line  :»  •  END  APPEARANCE  • I  I app . AP_Type ; 
insert  into  images  values  (lino,  line) ; 
lino  :s  lino  *  1; 
end  loop; 

for  env  in  cEnvironment  loop 
cid  :=  env.ENV_ID; 

line  ;=  '  ENVIRONMENT  *  I  I env . ENV_Type ; 
insert  into  images  values  (lino,  line) ; 
lino  ;=  lino  +  1; 

line  :=  •  ENVIRONMENT_DESCRIPTION  ■ I lenv.ENV_Description; 

insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

for  dt_env  in  cDT_env  loop 

line  ;=  '  DATA  TABLE  ' I ldt_env.DT_Name; 
insert  into  images  values  (lino,  line) ; 
lino  ;=  lino  +  1; 
end  loop; 

line  :=  *  END  ENVIRONMENT  • I  I env.ENV_Type; 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  +  1; 
end  loop; 

for  tac  in  cTactic  loop 
cid  :=  tac.T_ID; 

line  :=  •  TACTIC  • 1  I tac.T_Type; 
insert  into  images  values  (lino,  line); 
lino  lino  +  1; 

line  :=  •  TACTIC_DESCRIPTION  • I ltac.T_Description; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +1; 

for  dt_tac  in  cDT_env  loop 

line  :=  '  DATA  TABLE  • I ldt_tac.DT_Name; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

line  :=  '  END  TACTIC  •  I  I tac,T_Type; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

for  con  in  cContains  loop 
cid  :=  con.C_E_ID, 

line  :=  '  CONTAINS  ■ I lcon.E_Name; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

for  cex  in  cConex  loop 

i f  cex . CE_Type  =  ' + '  then 

line  :=  '  PLUS  • I  I cex.CE_Class I  I •  • I lTO_CHAR(cex.CE_ID) ; 
else 

line  :=  •  MINUS  ' I  I cex.CE_Class I  I •  • I ITO_CHAR(cex.CE_ID) ; 
end  if; 

insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 
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line  :=  ’  END  CX>NTAINS  '  I  lcon.E_Naine; 
insert  into  images  values  (lino,  line); 
lino  :m  lino  -f  1; 
end  loop; 

end  loop; 

line  :=  ‘COMMON  CAPABILITY  •; 
insert  into  images  values  (lino,  line); 
lino  :*  lino  +  1; 
for  cap  in  cComCap  loop 
cid  :=  cap.C_ID; 

line  :=  •  CAPABILITY  ‘  I  Icap.C.-rype; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  4-  1; 

line  :=  •  CAPABILITY_DESCRIPTION  *  I lcap.C_Description; 
insert  into  images  values  (lino,  line) ; 
lino  lino  *  1; 

for  dt_cap  in  cDT_cap  loop 

line  :=  •  DATA  TABLE  ‘ I ldt_cap.DT_Name; 
insert  into  linages  values  (lino,  line); 
lino  :=  lino  -  1; 
end  loop; 

line  !=  •  END  CAPABILITY  ‘ I  I cap.C_Type; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  *  1; 
end  loop; 

line  ;=  'END  CCMMON  CAPABILITY  '; 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  +  1; 

line  :=  ’COMMON  SUSCEPTIBILITY  •; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 
for  sus  in  cComSusc  loop 
cid  :=  sus.S_ID; 

line  :=  ‘  SUSCEPTIBILITY  ' I  1 sus .S_Type; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  :=  ‘  SUSCEPTIBILITY_DESCRIPTI0N  ’ 1 1 sus.S_Description; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

for  dt_sus  in  cDT_sus  loop 

line  :=  ’  DATA  TABLE  *  I  I dt_sus .DT_Name; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 
end  loop; 

line  :=  ‘  END  SUSCEPTIBILITY  ‘ I  I sus . S_Type ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

line  :=  ‘END  COMMON  SUSCEPTIBILITY  •; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  :=  ‘COMMON  APPEARANCE  ‘; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
for  app  in  cComApp  loop 
cid  :=  app.AP_ID; 

line  :=  ‘  APPEARANCE  ‘  I  I  app .  AP_‘iype  ; 
insert  into  images  values  (lino,  line); 
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lino  :«  lino  *  1; 

lino  ;>  '  APPBAIUUICE_OESCRIPTION  ' I lapp.AP.DescripCion; 

insert  into  images  values  (lino,  line); 
lino  :>  lino  *  1; 

for  dt_app  in  cDT_npp  loop 

line  :«  •  DATA  TABLE  ■  I  Idt.app.DT.JName.- 
insert  into  images  values  (lino,  line); 
lino  lino  ♦  1; 
end  loop; 

line  :>  ‘  END  APPEARANCE  ‘ I  I app . AP_Type ; 
insert  into  images  values  (lino,  line); 
lino  lino  *  1; 
end  loop; 

line  'END  COMM<»l  APPEARANCE  '; 

insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  ‘COMMON  ENVIRONMENT  '; 

insert  into  images  values  (lino,  line); 
lino  :=  lino  >  1; 

£or  env  in  cComEnv  loop 
cid  ;=  env.ENV_ID; 

line  :=  ‘  ENVIRONMENT  ‘  I  I env.ENV_Type; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  :=  '  ENVIRONMENT_DESCRIPTION  ‘  I  lenv.ENV.Description.- 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  ♦  1; 

for  dt_env  in  cDT_env  loop 

line  :=  '  DATA  TABLE  ‘  I  ldt_env.DT_Naine; 
insert  into  images  values  (lino,  line); 
lino  lino  +  1; 
end  loop; 

line  :=  ’  END  ENVIRONMENT  ‘ I lenv.ENV_Type; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

line  :=  'END  CCBIMON  ENVIRONMENT  •; 
insert  into  images  values  (lino,  line); 
lino  lino  +  1; 

line  :=  ‘COMMON  TACTIC  ‘ ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  >  1; 
for  tac  in  cCoirTac  loop 
cid  :=  tac.T_ID; 

line  :=  ‘  TACTIC  ‘  I  ltac.T_‘IVpe; 
insert  into  images  values  (lino,  line)  ,- 
lino  :=  lino  +1; 

line  :=  ‘  TACTIC_DESCRIPTION  ‘ I  I tac.T_Description; 

insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

for  dt_tac  in  cDT_env  loop 

line  :=  ‘  DATA  TABLE  ‘ I ldt_tac.DT_Name; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

line  :=  ‘  END  TACTIC  ‘ I  I tac . T_Type ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 
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lin*  :«  'END  COHMON  TACTIC  ' ; 

insert  into  images  values  (lino,  line); 

lino  :>  lino  *  1; 

coanit; 

END; 

/ 

select  line  from  images  order  by  line_no; 
select  'END  SMDB.^B00K3'  from  dual; 
spool  off; 


set  head  off; 
set  pages  0; 
set  feedbaclc  off; 
spool  BCX3K4 

select  'SWDB_BOOK4'  from  dual; 

select  'SWDB_BOOK4_SECORITY_LEVEL  'll  sec_class 

from  8wdb_sec_mods  vrtiere  sec_section  =4  and  secjbase  =  'y'; 
select  sec_class  from  swdb_sec_mods  vdiere  sec_section  =4  and  sec_base  s  'n'; 
delete  from  images; 

DECLARE 

lino  number  0; 
line  char(255) ; 
aid  number; 
sid  number; 
hid  number; 
swid  number; 
if  id  nunOoer; 
dpid  nuunber; 
cursor  cAssets  is 

select  A^ID,  A_Name,  A^Type,  A_Identity 
from  Assets; 
cursor  cSupports  is 

select  SU_ID,  SU_>laut_Own,  SUjKax_Trac)ced 
from  Supports 
where  O..A_ID  =  aid; 
cursor  cConcurrent  is 
select  SU_EN_Name 
from  SU_Conc_ET 
where  0_SU_ID  =  sid; 
cursor  cHardware  is 

select  HW_ID,  HWLName,  HW_Type,  HW_ldent 
from  hardware 
where  0_A^ID  =  aid; 
cursor  cHardwareDetail  is 

select  HWDjType,  HWD_Description 
from  HW_Detail 
where  0_HW_ID  =  hid 
order  by  HWD_Type; 
cursor  cSoftware  is 

select  SW_ID,  SW^Name,  SW_Type,  SW_Build_Date 
from  software 
where  0_A^ID  =  aid; 
cursor  cSoftwareDetail  is 

select  SWD_Type,  SWD_Description 
from  SW_Detail 
where  0_SW_ID  =  swid 
order  by  SWD_Type; 
cursor  cIncludeFile  is 

select  IF_ID,  lF_Type,  IF_ConCent,  IF_File_Type 
from  include_f iles 
vdiere  0_AwID  =  aid; 
cursor  cFileDetail  is 
select  DF_Name,  DF_Size 
from  IF_Detail 
tdiere  0_IF_ID  =  ifid; 
cursor  cFileSupport  is 

select  IFS_Typ€,  IFS_Description 
from  IF_Support 
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0_IF_ID  *  ifid 
order  by  lFS_Type; 
cursor  cPersonnel  is 

select  P_Type,  P_I>escription,  P_Quall£lcetions 
from  Personnel 
where  O.A_ID  =  aid; 
cursor  cOisProtocol  is 

select  DP_ID.  DP_Type,  DP.Version,  DP_OOP.  DP_ERROR,  DP_PDa_Ii»p 
frrat  DIS_Protocols 
«diere  0_K.10  *  aid: 
cursor  cDISPDU  is 

select  DPTJJame.  DPT_SR,  DPT_Rate.  DPT_Kind 
from  DIS_PDO_TyPES 
tdiere  0_DP_I0  >  dpid 
and  DPT_Klnd  =  'dis’; 
cursor  cISOProtocol  is 

select  IP_Layer,  lP_Protocol,  IP_liayer_Name.  IP_PDU_Name,  IP_Service 
from  ISO_Protocols 
idiere  0_X_ID  =  aid 
order  by  IP_Layer; 

BEGIN 

for  cA  in  cAssets  loop 
aid  :=  cA.A^ID; 

line  ;=  'ASSET.TYPE  '  I  ITO_CHAR(aid)  I  I '  •  I  IcA.A^ame; 
insert  into  images  values  (lino,  line): 
lino  ;=  lino  ♦  1; 

line  :=  'IDENTITY  ' I IcA.A^Identity; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 

for  cSup  in  cSupports  loop 
sid  :=  cSup.SU_ID; 

line  :=  'SUPPORTS  ENTITYJTYPE' ; 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  *  1; 

line  !=  •MAX_OWNERSHIP_REPRESENTED  'll  TO_CHAR  (cSup.SU_Max_Own) ; 
insert  into  images  values  (lino,  line); 
lino  lino  +  1; 

line  :=  ' MAX_REMOTE_TRACKED  'll  TO.CHAR  (cSup.SU_Max_Trac)ced) ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 

for  cCon  in  cConcurrent  loop 

line  :=  'CONCURRENT_ENTITY_TYPE  'll  cCon . SO_EN  JJame ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 
end  loop; 

for  chw  in  cHardware  loop 
hid  :=  chw.HW_ID; 

line  ;=  '  INCLUDES_HARDWARE '  II  chw.HW^ame; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  ;=  'HW_Type'  II  chw.HW_'IVpe; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  :=  'HW_ID'  II  chw.HW_Ident; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

for  chd  in  cHardwareDetail  loop 
if  chd.HWD_Type  =  'desC  then 
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line  :«  'HWJDESCRIPTION'  I  I  chd.HWD.Description; 
insert  into  images  values  (lino,  line) ; 
lino  lino  -f  1; 

end  if; 

if  chd.HWD_Type  »  ‘peri*  then 

line  :«  'HW_PERIPHERALS'  II  chd.HV(D_De8cription; 
insert  into  images  values  (lino,  line): 
lino  lino  *  1; 

end  if; 

if  chd.HWDJType  =  'intf  then 

line  ‘ HW_INTERFACE '  1 1  chd.HWO_Description; 

insert  into  images  values  (lino,  line) ; 
lino  lino  +  1; 

end  if; 
end  loop; 

line  :=  ■END.jHARDWAIlE’  II  chw.HW_Name; 
insert  into  images  values  (lino,  line) ; 
lino  lino  >  1; 
end  loop: 

for  csw  in  cSoftware  loop 
swid  :=  C8W.SW_ID; 

line  :=  •INCLUDES_SOFTWARE'  II  CSW.SW_>Jame; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 

line  ;=  • SOFTWARE-TYPE *  II  csw.SW_Type; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 

line  :=  ’CSCI-BUILD-DATE'  II  TO_CHAR(csw.SW_Build_Date) ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

for  csd  in  cSoftwareDetail  loop 
if  csd.SWD_Type  a  'dp'  then 

line  :=  'CONFIGORATION-LIBRARY-POINTER'  II  csd. SWD_Description; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 
else 

line  :=  ' REQUIRES_DATA_FILE '  II  csd.SWD_Description; 
insert  into  images  values  (lino,  line); 
lino  !=  lino  +  1; 
end  if; 
end  loop; 

line  ;=  'END-SOFTWARE'  II  csw.SW_Name; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

for  cif  in  cIncludeFile  loop 
if id  :=  cif.IF-ID; 

line  :=  ' INCLUDES-DATA^FILE  '  II  cif .IF-Type; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

for  cfd  in  cFileDetail  loop 

line  :=  'FILE-WAME  '  II  cfd.DF_Name; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  :=  'FILE_SIZE  '  II  TO-CHAR(cfd.DF-Size) ; 
insert  into  images  values  (lino,  line): 
lino  :=  lino  +  1: 
end  loop; 

line  ;=  'FILE-CONTENT  '  II  cif .IF-Content; 
insert  into  images  values  (lino,  line): 
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lino  :»  lino  *  1; 

line  :=  •FILE_TYPE  •  II  ci£.IF_File_Type; 
insert  into  images  values  (lino,  line) ; 
lino  lino  *  1; 

for  cfs  in  cFileSupport  loop 

line  :=  ’SUPPORTS_' I IUPPER(c£s.IFS_Type) ; 
line  :=  line  11*  • I lcfs.IFS_Description; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop: 

line  :=  ‘END  DATA^FILE* ; 
insert  into  images  values  (lino,  line) ; 
lino  lino  *■  1; 

end  loop; 

for  cp  in  cPersonnel  loop 

line  :=  • INCLUDES_PERSONNEL  ' I lcp.P_Type; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  -f  1; 

line  :=  ■ PERSONNEL_DESCRIPTION  • I  I cp . P_Descr ipt ion ; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

line  :=  ■ PERSONNEL_QUALIFICATIONS  • I lcp.P_Qualifications; 
insert  into  images  values  (lino,  line): 
lino  ;=  lino  +1; 

line  : =  • END_PERSONNEL ■ ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

for  cdis  in  cDisProtocol  loop 
dpid  :=  cdis.DP_ID; 

line  :=  ■ SUPPORTS_DIS_PROTOCOL  ' I  I cdis .DP_Typel I '  • I lcdis.DP_Version; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 

line  :=  ' OUT_OF_ORDER_PACKETS  ’ll  cdis.DP_OOP; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

line  ;=  ' ERROR_PACKETS  ’ll  cdis .DP_ERROR; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

for  cdp  in  cDISPDU  loop 

line  ;=  ■  SXJPPORTS_DIS_PDU_TYPE  '; 
line  ;=  line  II  cdp.DPT_Name  II  '  '; 
line  ;=  line  II  cdp.DPT_SR  II  '  '; 
line  :=  line  II  TO_CHAR(cdp.DPT_Rate) ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

line  :=  • END_SUPPORTS_DIS_PROTOCOL’ ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

for  ciso  in  cISOProtocol  loop 

line  :=  ■ SUPPORTS_PROTOCOL  'll  ciso.IP_Protocol; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

line  :=  ’LAYER  ’ll  TO_CHAR(ciso.IP_Layer) I  I ’  ’; 
line  ;=  line  II  ciso. IP_Protocol  II  '  *; 
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line  line  II  ciso. IP_Layer_Name; 

insert  into  images  values  (lino,  line); 
lino  lino  +  1; 

line  :=  •PDU_NAME  ’ll  ciso.IP_PDU_Name; 
insert  into  images  values  (lino,  line): 
lino  :=  lino  *  1; 

line  :=  'SERVICE  *11  ciso.IP_Service; 
insert  into  images  values  (lino,  line) ; 
lino  lino  *  1; 

line  :=  'END  SUPPORTS_PROTOCOL * ; 

insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

end  loop; 
commit; 

END: 

/ 

select  line  from  images  order  by  line_no; 
select  ' END  SWDB_B00K4 '  from  dual ; 
spool  off: 


set  head  off; 
set  pages  0; 
set  feedbacic  off; 
spool  BOOKS 

select  •SWDB_BOOK5'  from  dual; 

select  • SWDB_BOOK5_SECORITY_LEVEL  'll  sec_class 

from  swdb_sec_mods  vrtiere  sec_section  =5  and  sec_base  =  'y'; 
select  sec_class  from  swdb_sec_mods  where  sec_section  =5  and  sec_base  =  'n'; 
delete  from  images; 

DECLARE 

lino  number  0; 
line  char(2S5); 
section  number; 
enid  number; 
dtid  number; 
entid  numlser; 
fields  number; 
dims  number ; 

cursor  cSec  is 

select  sec_class  from  swdb_sec_mods 
where  sec_section  =  section 
and  sec_base  =  'n'; 

cursor  cEninnerated  is 

select  ET_ID,  ET_Name,  ET_item_Size 
from  ENUM_TAB; 
cursor  cEnuse  is 

select  EU_User_PDU,  EU_User_Record 
from  ENUM_USES 
where  0_ET_1D  =  enid; 
cursor  cFields  is 

select  EF_Field_Num,  EF_Name,  EF_Units,  EF_Field_Size 
from  ENUM_FIELDS 
vrtiere  0_ET_ID  =  enid 
order  by  EF_Field_Nvun; 
cursor  cValues  is 

select  EV_FieldJ}um,  EV_Min,  EVJlax,  EV_Meaning 

from  ENUM_VALOES 

where  0_ET_ID  =  enid 

and  EV_Nin  is  not  null 

order  by  EV_Field_N\im; 

cursor  cDataTab  is 
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select  DT_ID,  DT_Naine 
from  DATA^TAB; 
cursor  cOimensions  is 

select  DD_DiiitJKuin.  DDJHame,  DD_Units 
from  DATA^IMS 
tAiere  0_DT_ID  =  dtid 
order  by  DO_Dlm_Kum: 
cursor  cEntLoop  is 

select  distinct  DE_Entry 
from  OATA_Entries 
vdiere  0_DT_ID  =  dtid 
order  by  DE_Entry; 
cursor  cEntries  is 

select  DE_DiiiO>um.  DE_Min,  DEJiax 
from  DATAu-ENTRIES 
^ere  0_DT_ID  =  dtid 
and  DE_Entry  =  entid 
order  by  DE_Dim_iNum; 
cursor  cDataVals  is 

select  DV_Dim_Num.  DV_Value 
from  DATA_VALOES 
where  0_DT_ID  =  dtid 
and  0_DE_Entry  =  entid 
order  by  DV_Dim_Num; 

BEGIN 

line  :=  • SWDB_BOOK5_CHAPTERl • ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

select  sec_class  into  line  from  swdb_sec_niods 
where  8ec_section  =  5.1  Md  sec_base  =  'y'; 
line  ;=  •SWDB_B00K5_CHAPTER1_SECURITY_LEVEL  ’ll  line; 
insert  into  images  values  (lino,  line) ; 
lino  lino  4-  1; 

line  != 

section  5.1; 
for  cS  in  cSec  loop 

line  :=  line  II  cS.sec_class  II  ’  *; 
end  loop; 

insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

for  cE  in  cEnumerated  loop 
enid  :=  cE.ET_ID; 

line  :=  •  ENUMERATED_DATA_ITEM  'll  cE.ET_Naine; 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  +  1; 

for  cUse  in  cEnuse  loop 

line  ;=  'USED_BY  'll  cUse.EU_User_PDUI I •  ■ I lcUse.EU_User_Record; 
insert  into  images  values  (lino,  line) ; 
lino  ;=  lino  +  1; 
end  loop; 

line  :=  ' DATA_ITEM_SIZE  'll  TO_CHAR(cE.ET_Item_Size) ; 
insert  into  images  values  (lino,  line); 
lino  ;=  lino  +  1; 

select  count (*)  into  fields  from  ENOH-FIELDS  where  0_ET_ID  =  enid; 
line  :=  ’NUK_FIELDS  'll  TO_CHAR ( fields ) ; 
insert  into  images  values  (lino,  line) ; 
lino  lino  +1; 

for  cF  in  cFields  loop 

line  :=  'FIELD  • I |TO_CHAR(cF.EF_FieldJ»um) I  I '  ' I |cF.EF_Name; 
line  ;=  line  II'  'll  cF.EF_Field_Sizel I '  ' I lcF.EF_Units; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 
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£or  cV  in  cValues  loop 
line  :=  • DATA^VALOES • ; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

line  :=  'FIELD  '  I  ITO_CHAR(cV.EV_Field^um)  I  I  •  •  ; 
line  :=  line  II  'MEANING  ' I ITO_CHAR{cV.EV_Fiel<J_Num) ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

if  cV.EV_Max  is  null  then 

line  :=  TO_CHAR(cV.EV_Min) II'  'I lcV.EV_Neaning; 
else 

line  :=  TO_CHAR(cV.EV_Min) I  I '  -  ' I ITO_CHAR(cV.EV_Max) ; 
line  :=  line  II'  ' I lcV.EV_Meaning; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  if; 

] ine  : =  • END  DATA_VALUES ' ; 
insert  into  images  values  (lino,  line): 
lino  :=  lino  +  1; 
end  loop; 

line  ;=  'END  ENUMERATED_DATA  'll  cE.ET_Name; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 
end  loop; 

line  :=  ' SWDB_BOOK5_CHAPTER2 ' ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

select  sec_class  into  line  from  swdb_sec_mods 
where  sec_section  =  5.2  and  sec_l3ase  =  'y'; 
line  :=  •SWDB_BCX)K5_CHAPTER2_SECURITY_LEVEL  'll  line; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  !=  ' ' ; 
section  :=  5.2; 
for  cS  in  cSec  loop 

line  :=  line  II  cS.sec_class  II  '  '; 
end  loop; 

insert  into  images  values  (lino,  line) ; 
lino  ;=  lino  +  1; 

for  cD  in  cDataTab  loop 
dtid  :=  CD.DT_ID; 

line  :=  'DATA_TABLE  ' I  I cD . DTJJame ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

select  count (distinct  DD_Dim_Num'  into  dims 
from  DATA_DIMS  where  0_DT_1D  =  dtid; 
line  ;=  ' NUM_DIMENSIONS  ' I ITO_CHAR(dims) ; 
insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 

for  cM  in  cDimensions  loop 

line  :=  'DIMENSION  'll  TO_CHAR(cM.DD_Dim_Num) ; 
line  :=  linell'  ' I lcM.DD_Name; 
if  cM.DD_Units  is  not  null  then 

line  :=  line  II'  ( ' I lcM.DD_Unitsl i ' ) ' ; 
end  if; 

insert  into  images  values  (lino,  line) ; 
lino  :=  lino  +  1; 
end  loop; 

line  :=  ' DATA^TABLE_VALUES  '; 
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for  cK  in  cDimensions  loop 

line  line  II  cK.DO_Na]ne  II  * 
end  loop; 

insert  into  images  values  (lino,  line); 
lino  lino  +  1; 

for  cE  in  cEntLoop  loop 
entid  :=  cE.DE_Entry; 

for  cEL  in  cEntries  loop 
if  cEL.DE_>iax  is  null  then 

line  :=  TO_CKAR(cEL.DE_Min) 1 1 •  •; 
else 

line  ;=  TO_CHAR(cEL.DE_Hin) I  I •<• I ITO_CHAR(cEL.DE_Max)  I  I •  • 
end  if; 
end  loop; 

for  cDV  in  cOataVals  loop 

line  :=  line  II  TO_CHAR(cDV.DV_Value) I  I •  *; 
end  loop; 

insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 
end  loop; 

line  :=  'END  DATA_TABLE_VALUES ' ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  +  1; 

line  ;=  'END  DATA_TABLE  ' I  I cD . DT_Name ; 
in!='’rt  into  images  values  (lino,  line); 
lino  lino  •.  1; 
end  loop; 

line  ;=  'END  SWDB_&OOK5_CHAPTER2' ; 
insert  into  images  values  (lino,  line); 
lino  :=  lino  *  1; 

commit ; 

END; 

/ 

select  line  from  images  order  by  line_no; 
select  'END  SWDB_B00K5'  from  dual; 
spool  off; 
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